home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / examples.arc / EXAMPL31.PRO < prev    next >
Text File  |  1986-10-07  |  483b  |  16 lines
  1. /* Program 31 */
  2.  
  3. goal
  4.     makewindow(5,7,0,"",0,0,24,80),
  5.     makewindow(1,7,7,"Source",0,0,20,35),
  6.     write("Which file do you want to copy ?"),
  7.     cursor(3,8),readln(X),
  8.     makewindow(2,7,7,"Destination",0,40,20,35),
  9.     write("What is the name of the new copy ?"),
  10.     cursor(3,8),readln(Y),
  11.     concat(X," ",X1),concat(X1,Y,Z),
  12.     concat("copy ",Z,W),
  13.     makewindow(3,7,7,"Process",14,15,8,50),
  14.     write(" Copying ",X," to ",Y),cursor(2,3),
  15.     system(W).
  16.